home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8702a.d64
/
flpt c64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
55 lines
10 REM ************************************************
20 REM * *
30 REM * PROGRAMM ZUM UMWANDELN VON ZAHLEN IN DIE *
40 REM * C 64-FORMATE MFLPT (AB $6000) *
50 REM * FLPT (AB $6010) *
60 REM * *
70 REM * HEIMO PONNATH HAMBURG 1986 *
80 REM * *
90 REM ************************************************
100 REM
110 PRINTCHR$(147)"IST DER SMON AB $C000 SCHON EINGELADEN (J/N)";:INPUTA$
120 IF A$<>"J" THEN PRINT"WUENSCHE GUTEN ABSTURZ...ODER SMON LADEN!":END
130 FOR I=0 TO 17:REM EINLESEN DES MASCHINENPROGRAMMES
140 READ D:POKE 828+I,D
150 NEXT I
160 REM -------- DAS MASCHINENPROGRAMM ------------
170 DATA 162,000 :REM LDX #$00 ;LSB ZIELADRESSE
180 DATA 160,096 :REM LDY #$60 ;MSB -"-
190 [131] 032,212,187:[143] JSR $BBD4 ;FAC -> (X/Y)
200 [131] 162,006 :[143] LDX #$06 ;ZAEHLER EINRICHTEN
210 [131] 181,096 :[143] LDA $60,X ;FAC AUSLESEN
220 [131] 157,015,096:[143] STA $600F,X ;UND UEBERTRAGEN
230 [131] 202 :[143] DEX ;ZAEHLER -1
240 [131] 208,248 :[143] BNE $033D ;WEITER BIS FAC UEBERTRAGEN IST
250 [131] 096 :[143] RTS ;ZURUECK INS BASICPROGRAMM
260 [143]
270 [143] -------- USR-VEKTOR AUF $828 RICHTEN -----
280 [143]
290 [151] 785,60 :[143] LSB DES USR-VEKTORS
300 [151] 786,3 :[143] MSB DESSELBEN
310 [143]
320 [143] -------- EINGABEN UND USR-AUFRUF ----------
330 [143]
340 [153] [199](147):[133]"ZAHL EINGEBEN";A
350 B[178][183](A):[143] B IST NUR EIN DUMMY
360 [143]
370 [143] ----- PROGR.DIREKTMODUS : MONITORAUFRUF -----
380 [153][199](147)[199](17)
390 [153]"SYS49152"[199](17)[199](17)[199](17)[199](17)
400 [153]" M 6000 6001"[199](17):[143] HIER LIEGT DIE ZAHL IM MFLPT-FORMAT
410 [153]" M 6010 6011"[199](17):[143] UND HIER IM FLPT-FORMAT
420 [153]" X"[199](17)
430 [153]"RUN490"
440 [153][199](19);
450 [151]631,13
460 [151]198,1:[128]
470 [143] ---------------------------------------------
480 [143]
490 [153]:[153]"AB $6000 MFLPT-FORMAT"
500 [153]"AB $6010 FLPT-FORMAT"
510 [153]:[133]"WEITERE ZAHLEN (J/N)";A$
520 [139] A$[178]"J" [167] 340
530 [151] 785,72:[151] 786,178:[143] USR-VEKTOR AUF NORMALWERT
540 [128]